---
title: "Flex Test "
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(p8105.datasets)
library(plotly)
data("rest_inspec")
rest_insp =
rest_inspec %>%
filter(grade %in% c("A", "B", "C"), boro != "Missing") %>%
select(-camis, -phone, -record_date, -grade_date)
nyc_rest =
rest_insp %>%
sample_frac(size = .1)
```
Column {data-width=650}
-----------------------------------------------------------------------
### Chart A
```{r}
```
Column {data-width=350}
-----------------------------------------------------------------------
### Chart B
```{r}
```
### Chart C
```{r}
```